home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
COM
/
Handy Mail 1.0b4 folder.sit
/
Handy Mail 1.0b4 folder
/
Handy Mail v1.0b2 Installer
/
Handy Mail v1.0b2 ƒ
/
Resources
/
New Mail
/
stack.txt
< prev
Wrap
Text File
|
1995-12-22
|
3KB
|
104 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x5C00 (can't delete, can't abort, can't peek)
-- protect password hash: 1638073505
-- maximum user level: 2 (typing)
-- window: Rect(x1=96, y1=62, x2=544, y2=326)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=448 h=264
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2669
-- card count: 1
-- first card id: 2968
-- list block id: 3942
-- print block id: 0
-- font table block id: 3523
-- style table block id: 3121
-- free block count: 0
-- free size: 0 bytes
-- total size: 8768 bytes
-- stack block size: 2560 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02208000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x30BCDCE4
----- HyperTalk script -----
on openStack
set hilite of bg btn id 43 to true
send "mouseUp" to bg btn id 43
click at the loc of bg fld id 38
global mailGood
put true into mailGood
end openStack
on closeStack
global mailGood
if mailGood then
send "sendTheMail" to bg btn id 7
end if
put "" into bg fld "subject"
put "" into bg fld "sendTo"
put "" into bg fld "body"
set cursor to watch
set hilite of bg btn id 7 to false
end closeStack
on suspendStack
-- close window (short name of this stack)
end suspendStack
on keyDown what
if charToNum(what) = 3 then
set hilite of bg btn id 7 to true
send mouseUp to bg btn id 7
else
pass keyDown
end if
end keyDown